# Set a random number seed
set.seed(10232015)
# Some useful synthetic data
valid_data <- tibble::tibble(
incident_id = 1:100,
activation_level = factor(
sample(c("Level 1", "Level 2", "None"),
size = 100,
replace = TRUE,
prob = c(0.8, 0.1, 0.1)
)
),
provider_type = factor(
sample(c("Surgery/Trauma", "Emergency Medicine"),
size = 100,
replace = TRUE
)
),
trauma_level = factor(
sample(c("I", "II", "III", "IV"),
size = 100,
replace = TRUE,
prob = c(0.3, 0.3, 0.2, 0.2)
)
),
response_minutes = rnorm(100, mean = 8, sd = 5),
provider = sample(c("Dr. A", "Dr. B", "Dr. C", "Dr. D"),
size = 100,
replace = TRUE
)
)